home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / comm / comstack.sit / Commstack_2.6.bin / Commstack 2.6 / card_5943.txt < prev    next >
Encoding:
Text File  |  1989-12-21  |  7.7 KB  |  350 lines
  1. -- card: 5943 from stack: in.6
  2. -- bmap block id: 5761
  3. -- flags: 0000
  4. -- background id: 2598
  5. -- name: rnL
  6. ----- HyperTalk script -----
  7. on checkend
  8.   --put empty into card field "Tilataan"
  9.   get offset("--More--(",card field 1)
  10.   if it = 0 then
  11.     get offset("%",card field 1)
  12.     if it > 0 then
  13.       hide card button id 19
  14.       hide card button id 5
  15.     else
  16.       show card button id 19
  17.       show card button id 5
  18.     end if
  19.   else
  20.     show card button id 19
  21.     show card button id 5
  22.   end if
  23.  
  24. end checkend
  25.  
  26. on opencard
  27.   put empty into card field "Tilataan"
  28. end opencard
  29.  
  30.  
  31.  
  32. -- part 2 (field)
  33. -- low flags: 03
  34. -- high flags: 6007
  35. -- rect: left=8 top=71 right=337 bottom=505
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 0
  39. -- font id: 4
  40. -- text size: 9
  41. -- style flags: 0
  42. -- line height: 12
  43. -- part name: Field 1
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   -- 221 (UNSUB)  comp.theory.cell-automata! 1-29
  47.   -- 222 (UNSUB)  comp.theory.dynamic-sys! 1-26
  48.   get clickLine()
  49.   put it into linenumber
  50.   -- put line it of card field 1
  51.   put space into card field "UserMessage"
  52.   global CommStorage
  53.   global StringGot
  54.   get first word of card field "Node Type" of card "config"
  55.   put it into NodeType
  56.   select line linenumber of card field 1
  57.   put true into OK
  58.   if NodeType is "unix" then
  59.     get offset("!",line linenumber of card field 1)
  60.     if it > 0 then put false into Tilattu
  61.     put it into off1
  62.     get offset(":",line linenumber of card field 1)
  63.     if it > 0 then put true into Tilattu
  64.     if it < off1 then put off1 into it
  65.     if offset("%",line linenumber of card field 1) > 0 then
  66.       put false into OK
  67.     end if
  68.     if it = 0 then
  69.       put false into OK
  70.     else
  71.       get char 1 to it-1 of line linenumber of card field 1
  72.       -- put it
  73.       put it into NameOfLista
  74.     end if
  75.   else
  76.     put "ERROR****** RN EI OLE VMS:SS├ä"
  77.   end if
  78.  
  79.   get offset("#",line linenumber of card field 1)
  80.   if it > 0 then
  81.     put false into OK
  82.   end if
  83.  
  84.   if OK then
  85.     -- put "Lista=" & NameOfLista
  86.     if Tilattu then
  87.       put "rn-peruuta" && NameOflista & return after card field "Tilataan"
  88.       -- put "Lista" && NameOfLista && "peruutetaan."
  89.     end if
  90.     if not Tilattu then
  91.       put "rn-tilaa" && NameOfLista & return after Card field "Tilataan"
  92.       -- put "Lista" && NameOfLista && "tilataan."
  93.     end If
  94.     show card field "Tilataan"
  95.   else
  96.     put "Se ei ole listan nimi." into card field "UserMessage"
  97.   end if
  98. end mouseUp
  99.  
  100.  
  101.  
  102.  
  103. -- part 3 (field)
  104. -- low flags: 01
  105. -- high flags: 0002
  106. -- rect: left=0 top=330 right=342 bottom=73
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 3
  111. -- text size: 9
  112. -- style flags: 0
  113. -- line height: 12
  114. -- part name: LineCount
  115.  
  116.  
  117. -- part 5 (button)
  118. -- low flags: 00
  119. -- high flags: A004
  120. -- rect: left=87 top=37 right=55 bottom=190
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: Next page
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   openascii
  132.   writeascii " "
  133.   put space into card field 1
  134.   displayscreen "dis","--more--("
  135.   closeascii
  136.   checkend
  137. end mouseUp
  138.  
  139.  
  140.  
  141. -- part 8 (field)
  142. -- low flags: 00
  143. -- high flags: 0002
  144. -- rect: left=183 top=329 right=342 bottom=334
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 1
  148. -- font id: 3
  149. -- text size: 9
  150. -- style flags: 0
  151. -- line height: 12
  152. -- part name: UserMessage
  153.  
  154.  
  155. -- part 14 (field)
  156. -- low flags: 00
  157. -- high flags: 0007
  158. -- rect: left=240 top=210 right=295 bottom=512
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 0 / 0
  161. -- text alignment: 0
  162. -- font id: 3
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: Tilataan
  167.  
  168.  
  169. -- part 16 (field)
  170. -- low flags: 01
  171. -- high flags: 2004
  172. -- rect: left=322 top=28 right=216 bottom=488
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 0
  176. -- font id: 4
  177. -- text size: 9
  178. -- style flags: 256
  179. -- line height: 12
  180. -- part name: 
  181.  
  182.  
  183. -- part 17 (button)
  184. -- low flags: 00
  185. -- high flags: A000
  186. -- rect: left=2 top=25 right=69 bottom=53
  187. -- title width / last selected line: 0
  188. -- icon id / first selected line: 14953 / 14953
  189. -- text alignment: 1
  190. -- font id: 0
  191. -- text size: 12
  192. -- style flags: 0
  193. -- line height: 16
  194. -- part name: Return
  195. ----- HyperTalk script -----
  196. on mouseUp
  197.   global Language
  198.   visual effect iris close slow
  199.   openascii
  200.   writeascii "q" & return
  201.   put space into card field 1
  202.   if number of characters of card field "Tilataan" > 3 then
  203.     beep 1
  204.     hide card field 1
  205.     show card field "Tilataan"
  206.     if Language is "english" then
  207.       answer "Subscribe/Signoff lists in the field" with "Yes" or "No"
  208.     else
  209.       answer "Tilataanko/peruutetaanko kent├ñss├ñ olevat listat" with "Kyll├ñ" or "Ei"
  210.     end if
  211.     if it is "Kyll├ñ" or it is "yes" then
  212.       put number of lines of card field "tilataan" into count
  213.       repeat with i=1 to count
  214.         get line i of card field "tilataan"
  215.         writeascii it & return
  216.         wait 100
  217.       end repeat
  218.     end if
  219.   end if
  220.   show card field 1
  221.   displayscreen "dis","% "
  222.   closeascii
  223.   put space into card field "Tilataan"
  224.   go card "News"
  225. end mouseUp
  226.  
  227.  
  228.  
  229. -- part 19 (button)
  230. -- low flags: 00
  231. -- high flags: A004
  232. -- rect: left=87 top=55 right=72 bottom=190
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 0 / 0
  235. -- text alignment: 1
  236. -- font id: 0
  237. -- text size: 12
  238. -- style flags: 0
  239. -- line height: 16
  240. -- part name: Previous page
  241. ----- HyperTalk script -----
  242. on mouseup
  243.   openascii
  244.   writeascii "b"
  245.   put space into card field 1
  246.   displayscreen "dis","--more--("
  247.   delete line 1 of card field 1
  248.   delete line 1 of card field 1
  249.   delete line 1 of card field 1
  250.   delete line 1 of card field 1
  251.   closeascii
  252.   checkend
  253. end mouseup
  254.  
  255.  
  256.  
  257. -- part 20 (button)
  258. -- low flags: 00
  259. -- high flags: A004
  260. -- rect: left=193 top=37 right=56 bottom=320
  261. -- title width / last selected line: 0
  262. -- icon id / first selected line: 0 / 0
  263. -- text alignment: 1
  264. -- font id: 0
  265. -- text size: 12
  266. -- style flags: 0
  267. -- line height: 16
  268. -- part name: Find string 
  269. ----- HyperTalk script -----
  270. on mouseup
  271.   global muistaHaku
  272.   openascii
  273.   if MuistaHaku is empty then
  274.     put "mac" into MuistaHaku
  275.   end if
  276.   ask "Anna Merkkijono." with MuistaHaku
  277.   put it into MuistaHaku
  278.   set cursor to watch
  279.   writeascii "/" & it & return
  280.   wait 2 sec
  281.   put empty into card field 1
  282.   displayscreen "dis","--more--("
  283.   delete line 1 of card field 1
  284.   delete line 1 of card field 1
  285.   delete line 1 of card field 1
  286.   closeascii
  287.   checkend
  288. end mouseup
  289.  
  290.  
  291.  
  292. -- part 21 (button)
  293. -- low flags: 00
  294. -- high flags: A004
  295. -- rect: left=405 top=320 right=342 bottom=480
  296. -- title width / last selected line: 0
  297. -- icon id / first selected line: 0 / 0
  298. -- text alignment: 1
  299. -- font id: 0
  300. -- text size: 12
  301. -- style flags: 0
  302. -- line height: 16
  303. -- part name: Speak Text
  304. ----- HyperTalk script -----
  305. on mouseUp
  306.   ReadField1
  307. end mouseUp
  308.  
  309.  
  310.  
  311. -- part 22 (button)
  312. -- low flags: 00
  313. -- high flags: A004
  314. -- rect: left=337 top=323 right=342 bottom=395
  315. -- title width / last selected line: 0
  316. -- icon id / first selected line: 0 / 0
  317. -- text alignment: 1
  318. -- font id: 0
  319. -- text size: 12
  320. -- style flags: 0
  321. -- line height: 16
  322. -- part name: PANIC
  323. ----- HyperTalk script -----
  324. on mouseup
  325.   PANIC
  326. end mouseup
  327.  
  328.  
  329.  
  330. -- part contents for card part 3
  331. ----- text -----
  332. Lines 3
  333.  
  334. -- part contents for card part 8
  335. ----- text -----
  336.  
  337.  
  338. -- part contents for card part 16
  339. ----- text -----
  340. Osoita listaa, jonka haluat tilata tai peruuttaa.
  341. Listat, joiden nimess├ñ on ":"-merkki ovat jo tilattuja. Listat, joiden nimess├ñ on "!" ovat tilaamatta.
  342.  
  343. (Point at list name you want to subscribe.
  344. List names with ":" you have allready subscribed)
  345.  
  346. -- part contents for card part 2
  347. ----- text -----
  348.  
  349.             
  350. 12:34pm@tukki:~%